home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / FRITZ1.DXR / 00298.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  828 b   |  28 lines
  1. on exitFrame
  2.   global advance, mnv, ppl
  3.   if getAt(mnv, 1) > 1 then
  4.     set the memberNum of sprite getAt(ppl, 1) to member(the memberNum of sprite getAt(ppl, 1) + 1, 2)
  5.     setAt(mnv, 1, getAt(mnv, 1) - 1)
  6.   else
  7.     set the member of sprite getAt(ppl, 1) to member(1, 2)
  8.   end if
  9.   if (advance = 13) or (advance = 14) then
  10.     foemov(76, 77, 87, 94, 95, 8, 5, 2, 2, 1, 10, 3)
  11.     foemov(103, 104, 116, 122, 123, 13, 7, 3, 3, 2, 9, 5)
  12.     strata2(3)
  13.   else
  14.     if advance = 15 then
  15.       foemov(261, 262, 271, 280, 287, 16, 5, 4, 4, 3, 10, 6)
  16.       strata2(3)
  17.     else
  18.       if (advance = 16) or (advance = 17) then
  19.         foemov(261, 262, 271, 280, 287, 16, 5, 4, 4, 3, 10, 6)
  20.         foemov(103, 104, 116, 122, 123, 13, 7, 3, 3, 2, 9, 5)
  21.         strata2(3)
  22.       else
  23.         strata2(3)
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.